Skip to main content
deleted 53 characters in body
Source Link
jdt
  • 5.1k
  • 1
  • 16
  • 21

BASIC C64, 149106 bytes

0 POKE53281,0 1 DATA28DATA144,20928,158,209,156,209144,13 2 DATA158,209158,30,209,156159,209144,13 3 DATA156,209156,159,209,31,208,13,-1144 42 READA:IFA>0THENPRINTCHR$PRINTCHR$(A);+"o";:GOTO4GOTO2 

enter image description hereenter image description here

BASIC C64, 149 bytes

0 POKE53281,0 1 DATA28,209,158,209,156,209,13 2 DATA158,209,30,209,156,209,13 3 DATA156,209,159,209,31,208,13,-1 4 READA:IFA>0THENPRINTCHR$(A);:GOTO4 

enter image description here

BASIC C64, 106 bytes

0 POKE53281,0 1 DATA144,28,158,156,144,13,158,30,159,144,13,156,159,31,144 2 READA:PRINTCHR$(A)+"o";:GOTO2 

enter image description here

edited body
Source Link
jdt
  • 5.1k
  • 1
  • 16
  • 21

BASIC C64, 149 bytes

0 POKE53281,0 1 DATA28,209,158,209,156,209,13 2 DATA158,209,30,209,156,209,13 3 DATA156,209,159,209,31,208,13,-1 4 READA:IFA>0THENPRINTCHR$(A);:GOTO4 

enter image description hereenter image description here

BASIC C64, 149 bytes

0 POKE53281,0 1 DATA28,209,158,209,156,209,13 2 DATA158,209,30,209,156,209,13 3 DATA156,209,159,209,31,208,13,-1 4 READA:IFA>0THENPRINTCHR$(A);:GOTO4 

enter image description here

BASIC C64, 149 bytes

0 POKE53281,0 1 DATA28,209,158,209,156,209,13 2 DATA158,209,30,209,156,209,13 3 DATA156,209,159,209,31,208,13,-1 4 READA:IFA>0THENPRINTCHR$(A);:GOTO4 

enter image description here

deleted 19 characters in body
Source Link
jdt
  • 5.1k
  • 1
  • 16
  • 21

BasicBASIC C64, 163149 bytes

0 POKE 53281POKE53281,0 1 DATA 28DATA28,209,158,209,156,209,13 2 DATA 158DATA158,209,30,209,156,209,13 3 DATA 156DATA156,209,159,209,31,208,13,-1 4 READ A 5 IF A > 0 THEN PRINT CHR$READA:IFA>0THENPRINTCHR$(A);:GOTO 4GOTO4 

enter image description hereenter image description here

Basic C64, 163 bytes

0 POKE 53281,0 1 DATA 28,209,158,209,156,209,13 2 DATA 158,209,30,209,156,209,13 3 DATA 156,209,159,209,31,208,13,-1 4 READ A 5 IF A > 0 THEN PRINT CHR$(A);:GOTO 4 

enter image description here

BASIC C64, 149 bytes

0 POKE53281,0 1 DATA28,209,158,209,156,209,13 2 DATA158,209,30,209,156,209,13 3 DATA156,209,159,209,31,208,13,-1 4 READA:IFA>0THENPRINTCHR$(A);:GOTO4 

enter image description here

Source Link
jdt
  • 5.1k
  • 1
  • 16
  • 21
Loading