A little #program that lets you move a Smiley Face around the screen using #QB64

https://qb64.com/

#quickBASIC #QBASIC #BASIC

(source code in ALT text)

A little #program that lets you move a Smiley Face around the screen using #QB64

https://qb64.com/

#quickBASIC #QBASIC #BASIC

Source (Also in ALT text):

'-----------------------------------------
' Moving a face around the screen!
' Phillip J Rhoades - 2026-04-05
'-----------------------------------------

'Initializing some variables and the screen
Let Row = 1
Let Col = 1
Dim PrevRow
Dim PrevCol

Locate Row, Col
Print Chr$(2)

'Start of the main loop
Do
'Get the Keypress
TheKey$ = InKey$

'If there's no Keypress, there's no need to do all this
'so skip it all
If TheKey$ <> "" Then
'Record the Row and Col before changing
PrevRow = Row
PrevCol = Col

'Take note of which arrow key is pressed for movement.
Select Case TheKey$
Case Chr$(0) + Chr$(77): Col = Col + 1 'Left
Case Chr$(0) + Chr$(75): Col = Col - 1 'Right
Case Chr$(0) + Chr$(80): Row = Row + 1 'Down
Case Chr$(0) + Chr$(72): Row = Row - 1 'Up
End Select

'Keep the character on the screen
If Row < 1 Or Row > 23 Then
Row = PrevRow
End If
If Col < 1 Or Col > 79 Then
Col = PrevCol
End If

'Blank the old and print the new location
'to move the character.
Locate PrevRow, PrevCol 'Move cursor to old place
Print " " 'Blank the old character
Locate Row, Col 'Move cursor to new place
Print Chr$(2) 'Print the character to move on screen
End If 'This loop was mostly skipped if no Keypress
Loop Until TheKey$ = "q"
'End of the main loop

Für die alten Programmierhasen unter euch hab ich gerade noch was ganz Spezielles ins Internet Archive gestellt. Microsoft's QuickBASIC 4.0 für MS-DOS aus dem Jahre 1988. Deutsche Fassung auf 4 x 360KB 5,25 Zoll DD-Disketten.

Disketten: https://archive.org/details/quickbasic40_de
Referenzkarte: https://archive.org/details/quickbasic40_de_referenzkarte

Viel Spaß beim Coden!

#QuickBASIC #Basic #Programmieren #Programmiersprache #Microsoft #MSDOS #RetroComputing #Retro #80er #80s #DOS #FloppyDisk #KryoFlux #Diskette

Рубрика ебануццо
В 2004 году один датчанин написал полнофункциональный GUI для DOS для машин класса XT на — держитесь — #QuickBasic. Иконки, запуск других программ итп. Минимум просит 200k. Называется #costaGUI, сорцы открыты

#retrocomputing

Кто угодно может пнуть мёртвого льва

Кто угодно может пнуть мёртвого льва. Мёртвый лев не рыкнет на наглеца. Мёртвый лев не откусит ему ногу «по самое не хочу», хотя стоило бы. Лев мёртв, и теперь его может пнуть каждый ишак, что конечно же не показывает превосходство ишака над львом. Эта статья будет полна негодования и ненависти. Кровь ещё закончила кипеть от негодования. Но, разумеется, помимо эмоций будут и сухие объективные факты, немножко исследования и расстановка точек над i. В интернете кто-то не прав... опять... Существует целый ряд инструментов, технологий и вообще вещей, которым по какой-то непонятной вселенской несправедливости не повезло : нашлась масса непонятных людей, которые по какой-то необъяснимой причине начали распускать про эти инструменты/технологии/вещи разные небылицы, идиотские фейки, слухи и прочий порочащий репутацию «компромат». Можно не переживать, если речь идёт о технологии, которая находится «на пике» — у неё будет большое community и правда восторжествует. Совсем другое дело, когда речь идёт о чём-то, что далеко не на пике, чья минута славы в прошлом (возможно даже давно в прошлом) — здесь мёртвый «лев» не может дать сдачи, и что самое обидное, что в какой-то степени «лев» сейчас мёртв отчасти и потому, что ещё при его жизни началось необоснованное распространение всяких бредовых поверий и мифов про него. И сегодня речь пойдёт об одном из таких случаев.

https://habr.com/ru/articles/973594/

#Basic #QuickBasic #Visual_Basic #интерпретатор #трансляция #x86 #фейки

Repórter Retro 118

https://retropolis.com.br/2025/09/24/reporter-retro-118/

#ReprterRetro #6502 #AdrianBlack #AMXProject #Argentina #BancoDeDados #BASIC #CdigoDeBarras #Commodore64 #CommodoreVIC20 #CPM #DanielCampos #DartmouthCollege #DiskII #disquete #DisqueteDe312 #GrupoDeUsurios #IBM #IntelignciaArtificial #ISA #JAIIO #Mainframes #MakerTube #microsoft #modem #MSDOS #MSX #MSXJa #MSXRio #MSXVGA #Novell #Pick #QuickBASIC #RetroRio #SWAC #TByteCreator #Theremin #VWestlife #Windows95 #Xenix